
   5 &(21)=0;&(19)=0;CLEAR ;&(9)=22;FC=0;F=428;BC=F;&(0)=135;&(1)=135;&(2)=240;&(3)=240;P=255;Z=20
  10 CX=33;CY=-36;PRINT "EMPTY";CY=-5;CX=38;PRINT "HALF";CX=38;CY=16;PRINT "FULL";FOR A=1TO 3;CX=66;CY=Z;PRINT "◄";Z=Z-25
  15 NEXT A;BOX 30,3,1,33,3;BOX 61,3,1,33,3;J=0;U=5;XY=-3523;LINE 46,-29,3;XY=-3554;LINE 45,-29,3;L=150
  17 CX=-58;CY=-36;PRINT "SCORE ",#1,L;FOR A=1TO 13;@(A)=0;NEXT A;NT=1
  20 B=1;FOR A=-65TO -5STEP 10;@(B)=RND (15)+10;BOX A,@(B)-20,11,40,3;H=0;B=B+1;NEXT A;A=8;B=1
  25 FOR X=-60TO -10STEP 10
  30 IF @(B)<@(B+1)D=ABS((@(B+1)-40)-@(B));D=D-2;E=@(B)-1;Y=E-RND (D);GOTO 60
  40 IF @(B)>@(B+1)D=ABS((@(B)-40)-@(B+1));D=D-2;E=@(B+1)-1;Y=E-RND (D);GOTO 60
  50 Y=@(B)-1-RND (37)
  60 BOX X,Y,1,3,3;@(A)=Y;A=A+1;B=B+1;NEXT X;V=@(7)-2-RND (35);BOX 3,V,5,5,3;CY=30;CX=15;PRINT "BILGE LEVEL
  70 N=-69;C=1;B=-60;S=8;M=@(C)-2;X=-68;Y=M-RND (35);Z=-29;GOTO 100
  71 BOX X,Y,2,3,3;BOX X,Y,3,1,3;RETURN 
  80 IF JY(1)=0IF JX(1)=0GOSUB 300;GOTO 80
  90 GOSUB 71
 100 IF PX(X+1+JX(1),Y+JY(1))=0GOSUB 71;&(19)=125;&(21)=P;GOSUB 71;&(19)=0;&(21)=0;GOTO 100
 110 X=X+JX(1);Y=Y+JY(1);GOSUB 71;IF Z=19CY=30;CX=-72;PRINT "BOAT SINKING";H=10;GOSUB 500;GOTO 350
 150 IF X=BGOSUB 260
 170 GOSUB 300;IF X=-2IF Y=VGOSUB 71;X=1;GOSUB 71;CY=40;PRINT "     SUCESS IS YOURS";GOTO 380
 180 Z=Z+1;G=2;GOSUB 600;GOTO 80
 260 IF Y=@(S)GOSUB 540;GOSUB 71;X=X+2;GOSUB 71;BOX -35,30,78,8,2;BOX B,Y,1,3,3;GOSUB 400;RETURN 
 270 MU=900;GOSUB 71;X=X-3;MU=100;GOSUB 71;RETURN 
 300 Q=N+RND (7);R=M-RND (35);IF R=YIF Q=XGOTO 350
 310 RETURN 
 350 &(21)=P;FOR T=1TO 20;BC=80;&(19)=15;BOX X,Y,RND (6),RND (6),3;BC=F;&(19)=35;NEXT T;&(19)=0
 360 CY=39;PRINT "   YOU HAVE BEEN CAPTURED";&(9)=175;FC=0;&(21)=P;FOR A=10TO 150;&(19)=A;NEXT A;RUN 
 380 &(9)=50;FC=135;&(21)=P;FOR A=125TO 10STEP -1;&(19)=A;NEXT A;RUN 
 400 N=N+10;C=C+1;S=S+1;B=B+10;M=@(C)-1;RETURN 
 500 Z=Z+1;J=J+2;G=-2;FOR A=1TO 60;Z=Z-1;GOSUB 590;IF R>Y R=R-1
 505 IF R<Y R=R+1
 510 IF H=10J=32;Z=20;IF X<Q Q=Q-5
 515 IF R=YIF X=QGOTO 350
 517 IF R=Y Q=Q+1
 520 IF JX(1)=1Z=Z-1;J=J-2;RETURN 
 525 MU=9;MU=9;MU=16;NEXT A
 540 CY=30;CX=-62;PRINT "PUMP DOWN??";FOR A=1TO 70;IF TR(1)GOSUB 500;L=L-15;CX=-23;CY=-36;PRINT #1,L,"  ";RETURN 
 550 NEXT A;RETURN 
 590 FOR T=1TO 2;BOX Q,R,1,2,3;BOX Q,R+1,3,1,3;BOX Q,R-1,3,1,3;NEXT T
 600 IF Z<=-15J=J+G;GOTO 630
 620 J=30
 630 IF J<2Z=-29;J=0;RETURN 
 640 BOX 46,Z,J,1,3;RETURN 
:RETURN ;RUN 
>